100 IFA=74THEN501
101 GOSUB880:IFSX=0THEN145
110 (null)15:(null)CLR:IF(null)(0)=5THEN(null)%
120 IF(null)(0)<>5THEN(null)&
130 (null)130:CLOSE15:IFER=5THEN260
140 SYS11252
145 POKE53280,0:POKE53281,0:L1$="   [155][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
150 PRINTCHR$(142)"[147]"L1$
160 PRINTSPC(9)"[159]PARTITION AID"
170 PRINTL1$
180 PRINTSPC(5)"[155] 1.  SHOW PARTITIONS"
190 PRINTSPC(5)"[155] 2.  CREATE PARTITION"
200 PRINTSPC(5)"[155] 3.  DIRECTORY"
210 PRINTSPC(5)"[155] 4.  CHANGE UNIT
220 [153][166]5)"LIST 5.  QUIT":[153]L1$
230 [139]RU[178]1[167]290
240 :U[178]8
250 [141]890:[139]DR[178]8[167]290
260 U[178]U[170]1:[139]U[179]12[167]250
270 [139]RU[178]0[167][137]930
280 :[137]240
290 RU[178]1:[153][166]4)"OPENUNIT:"U"OPEN     DRIVE: 1581" :[153]L1$
300 [161]K$:[139]K$[178]""[167]300
310 [145][197](K$)[137]510,960,360,790,330
320 [137]300
330 [153]"LOAD":[128]
340 [143]
360 [153]"LOAD"L1$
370 [153][166]10)"OPENDIRECTORY":[153]L1$
390 [159]15,U,15:[159]96,U,96,"$0":[141]820:[139]A[177]19[167][160]96:[160]15:[137]100
400 [153][166]5)"LIST"[199](34);
410 [158]6145:[158]6170:[153]
420 [129]Y[178]1[164]15:[158]6145
430 [139][194](6144)[179][177]0[167]490
440 [153][166]5)[199](34);
450 [158]6170
460 [153]:[130]Y
470 [141]850:[153]:[129]Y[178]1[164]17:[153]"ONON                              ":[130]Y
480 [153]"ONON":[137]420
490 [160]96:[160]15:[141]850:[137]145
500 [139]A[179][177]74[167]100
501 A[178]0:[153]"LIST THERE IS NO SUB-DIRECTORY. ON":[141]1920
502 [139]X$[178]"Y"[167][159]15,U,15:[137]1670
503 [159]15,U,15,"I0":[160]15:[137]100
510 [153]"LOAD"L1$
520 [153][166]9)"OPENSHOW PARTITIONS"
530 [153]L1$
540 [159]15,U,15:[159]96,U,96,"$0":[141]820:[139]A[177]19[167][160]96:[160]15:[137]500
550 [153][166]3)"LIST  "[199](34);
560 [158]6145:[158]6170:[153]"  ":YY[178]0:ZZ[178]0
570 [129]Y[178]1[164]296:[158]6145
580 [139][194](6144)[179][177]0[167]640
590 [158]6213:[139][194](6191)[178][198]("M")[167]YY[178]YY[170]1:ZZ[178]ZZ[170]1
600 [139]YY[178]8[167]YY[178]0:[137]620
610 [130]Y:[137]640
620 [141]850:[153]:[129]Y[178]1[164]10:[153]"ONON                              ":[130]Y
630 [153]"ONON":[137]570
640 [160]96:[160]15
650 [153] "LISTWANT TO GO TO A PARTITION ?"
660 [133]"YCMDCMDCMD";X$: [139] X$[179][177]"Y" [167] 145
670 [153] "LISTOK, ENTER A PARTITION NAME."
680 P$[178]"ROOT":[133]"ROOTCMDCMDCMDCMDCMDCMD";P$:
690 [139]ZZ[178]0[175]P$[179][177]"ROOT"[167][153]"ONON":[137]680
700 X[178][195](P$):[139]X[177]16[167][153]"ONON":[137]680
710 [139]X[178]0[167]145
720 [139] ((ZZ[178]0) [176] (P$[178]"ROOT"))[167] [159]15,U,15,"I0":[137]740
730 [159]15,U,15,"/0:"[170]P$
740 [141]820
750 [139]A[178]2[167][153][166]3)"WAITLISTSTATUS: "B$;C;D:[141]850:[137]770
760 [139]A[178]0[167][153][166]4)"WAITLISTSTATUS:ONCMDCMDCMDCMD";:[141]840
770 [160]15:[137]145
780 [143]
790 [153]"                                 ":[153]"ONON":U[178]U[170]1
800 RU[178]2:[137]250
810 [143]
820 [132]15,A,B$,C,D:[139]A[179]20[167][142]
830 [153]"LISTDISK ERROR:"
840 [153]""A;B$;C;D:[141]850:[142]
850 [139]A[178]74[167][142]
851 [153]:[153]"LISTPRESS ANY KEY TO CONTINUE"
860 [161]K$:[139]K$[178]""[167]860
870 [142]
880 SX[178][182]([194](65533)[178]255):[142]  :[143] SX=0 IF C64, SX=1 IF C128
890 [159]15,U,15:[141]900:[160]15:[142]
900 [152]15,"M-R"[199](198)[199](229)[199](1):[161]#15,A$:A$[178]A$[170][199](0)
910 [139][198](A$)[178]255[167]DR[178]8:[142]
920 DR[178]7:[142]
930 [153]"LIST1581 DRIVE NOT PRESENTON":[128]
950 [143]
960 [153]"LOAD"L1$
970 [153][166]8)"OPENCREATE PARTITION"
980 [153]L1$
990 [153]"LISTTO CREATE A SUB-DIRECTORY"
1000 [153]"LISTYOUR PARTITION MUST:     WAIT"
1010 [153]"    (1) START ON SECTOR 0"
1020 [153]"    (2) BE AT LEAST 120 BLOCKS"
1030 [153]"    (3) BE A MULTIPLE OF 40 BLOCKS"
1040 [153] "LIST ENTER A PARTITION NAME. "
1050 P$[178]"END":[133]"ENDCMDCMDCMDCMDCMD";P$:
1060 X[178][195](P$):[139]X[177]16[167][153]"ONON":[137]1050
1070 [139]X[178]0[176]P$[178]"END"[167]145
1080 [153] "LIST FIRST TRACK (1-39 OR 41-80)"
1090 T[178]1:[133]"1CMDCMDCMD";T:
1100 [139](T[179]1)[176](T[178]40)[176](T[177]80)[167][153]"ONON":[137]1090
1110 [153] "LIST FIRST SECTOR (0-39)        "
1120 S[178]0:[133]"0CMDCMDCMD";S:
1130 [139](S[179]0)[176](S[177]39)[167][153]"ONON":[137]1120
1140 [153] "LIST NUMBER OF BLOCKS IN PARTITION"
1141 N[178]120:[133]"120CMDCMDCMDCMDCMD";N:
1150 [139] N[178]0 [167] [153] "ONON": [137]1141
1170 [139][181](N[173]40)[178]N[173]40[167]1210
1180 [153]"LISTNOT A MULTIPLE OF 40."
1190 C$[178]"N":[133] "CONTINUE ANYWAY (Y/N): ? NCMDCMDCMD";C$
1191 [139]C$[178]"N"[167][153]"ONONONON":[137]1141
1200 [139]C$[179][177]"Y"[167][153]"ONON":[137]1190
1210 A1[178][181](N[173]256) : A2[178]N[171]A1[172]256
1220 CM$[178]"/0:"[170]P$[170]","[170][199](T)[170][199](S)[170][199](A2)[170][199](A1)[170]",C"
1230 [153]"":[129]X[178]1[164]20:[153]"                                   ":[130]X
1240 [153]"LISTCREATING PARTITION: ";
1242 [139][195](P$)[179]8[167][153]P$:[153]:[137]1250
1243 [153]:[153]""P$:[153]:[137]1250
1250 [159]15,U,15:[152]15,CM$:[141]820
1255 [139]A[177]19[167][160]15:[137]145
1260 [153]"LISTSTATUS: "A;B$;C;D:[137]1310
1300 [160]15:[141]850:[137]145
1310 [139][181](N[173]40)[179][177]N[173]40[167]1300
1320 [139]N[179]120[167]1300
1330 [139]S[179][177]0[167]1300
1650 [141]1920
1660 [139] X$[179][177]"Y" [167][160]15:[137]145
1670 [153] "LISTOK, ENTER A DIRECTORY NAME."
1675 [153]""P$;:X[178][195](P$)[170]2:[129]XX[178]1[164]X:[153]"CMD";:[130]XX
1680 [133]H$:
1700 X[178][195](H$):[139]X[177]16[167][153]"ONON":[137]1680
1710 [139]X[178]0[167][160]15:[137]145
1800 [153] "LISTOK, ENTER 2 CHARACTER ID.   "
1880 ID$[178]"XX":[133]"XXCMDCMDCMDCMD";ID$:
1890 [139][195](ID$)[177]2[176][195](ID$)[179]2[167][153]"ONON":[137]1880
1899 [152]15,"/0:"[170]P$
1900 [152]15,"N0:"[170]H$[170]","[170]ID$
1910 S[178]1:[153]:[141]820:[137]1255
1920 [153] "LISTWANT TO MAKE A SUB-DIRECTORY"
1921 [153] "FOR THIS PARTITION?         ":[133]"YCMDCMDCMD";X$:[142]